home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Present…nuary (Partner) - Disc 1 / The Apple Reference and Presentations Library (Disc 1)(January 1994).iso / Frame Technology / US English / FrameMaker 4-PPC / System Extras / PS Printer 8.1.1 / PSPrinter / PSPrinter.rsrc / PS_-8178 < prev    next >
Encoding:
Text File  |  1994-04-13  |  1.5 KB  |  111 lines
  1. %%BeginFile: adobe_psp_level1_basicimages
  2. %%Copyright: Copyright 1990-1993 Adobe Systems Incorporated. All Rights Reserved.
  3. /$i false def
  4. /flipinvert
  5. statusdict begin
  6. version cvr 47.0 lt
  7. end
  8. def
  9. /iw Z
  10. /ih Z
  11. /im_save Z
  12. /setupimageproc Z
  13. /polarity Z
  14. /smoothflag Z
  15. /$z Z
  16. /bpc Z
  17. /smooth_moredata Z
  18. /datatype Z
  19. /:f
  20. {
  21. /im_save save store
  22. /datatype xs
  23. $i flipinvert
  24. and
  25. xor
  26. /polarity xs
  27. /smoothflag xs
  28. :T
  29. scale
  30. /$z exch string store
  31. /bpc xs
  32. /ih xs
  33. /iw xs
  34. /smoothflag
  35. smoothflag
  36. bpc 1 eq and
  37. smoothflag and
  38. userdict/sc_smooth known and
  39. vmstatus pop exch pop iw 3 mul sub 1000 gt and
  40. iw 4 mul 7 add 8 idiv 4 mul 65535 le and
  41. store
  42. smoothflag{
  43. iw
  44. ih
  45. $z
  46. iw 7 add 8 idiv 4 mul string
  47. iw 4 mul 7 add 8 idiv 4 mul string
  48. true
  49. false
  50. sc_initsmooth
  51. /iw iw 4 mul store
  52. /ih ih 4 mul store
  53. }if
  54. /setupimageproc datatype 0 eq datatype 1 eq or{
  55. smoothflag{
  56. {
  57. [
  58. /smooth_moredata cvx[
  59. currentfile
  60. $z
  61. {readstring readhexstring}datatype get
  62. /pop cvx
  63. ]cvx[
  64. $z
  65. ]cvx/ifelse cvx
  66. /sc_smooth cvx
  67. /smooth_moredata/exch cvx/store cvx
  68. ]cvx bind
  69. /smooth_moredata true store
  70. dup exec pop dup exec pop
  71. }
  72. }{
  73. {
  74. [
  75. currentfile
  76. $z
  77. {readstring readhexstring}datatype get
  78. /pop cvx
  79. ]cvx bind
  80. }
  81. }ifelse
  82. }{
  83. (error, can't use level2 data acquisition procs for level1)print flush stop
  84. }ifelse
  85. store
  86. }bd
  87. /:j{im_save restore}bd
  88. /:g
  89. {
  90. 1 setgray
  91. 0 0 1 1 rF
  92. 0 setgray
  93. iw ih polarity[iw 0 0 ih 0 0]setupimageproc
  94. imagemask
  95. }bd
  96. /:h
  97. {
  98. setrgbcolor
  99. 0 0 1 1 rF
  100. setrgbcolor
  101. iw ih polarity[iw 0 0 ih 0 0]setupimageproc
  102. imagemask
  103. }bd
  104. /:i
  105. {
  106. setrgbcolor
  107. iw ih polarity[iw 0 0 ih 0 0]setupimageproc
  108. imagemask
  109. }bd
  110. %%EndFile
  111.